COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE	UDPTST	- DATA TEST A UDP
C00004 ENDMK
C⊗;
	TITLE	UDPTST	- DATA TEST A UDP
;REG 7/15/74

A←1
B←2
C←3
D←4

CYLSIZ←=19*4440			;SIZE OF CYL ON UDP
CYLBUF:	BLOCK	CYLSIZ
PAT1:	0			;DATA PATTERN - 1ST WORD
PAT2:	0			;DATA PATTERN - 2ND WORD


NOUDP:	OUTSTR	[ASCIZ/INIT OF UDP1 FAILED
/]
	EXIT

PASFAI:	OUTSTR	[ASCIZ/PASSWORD WRONG
/]
	EXIT


START:	RESET
	INIT	0,117
	'UDP1  '
	0
	JRST	NOUDP
	SETZB	A,B
	ENTER	0,A
	JRST	PASFAI
PASS:	MOVSI	A,-=800*=19	;NUMBER OF TRACKS

	MOVE	C,PAT1		;MAKE A PATTERN
	MOVE	D,PAT2
	ROTC	C,1
	TLNN	C,400000
	TRC	D,1
	MOVEM	C,PAT1
	MOVEM	D,PAT2

CYL:	MOVEM	C,CYLBUF
	MOVEM	D,CYLBUF+1
	MOVE	C,[CYLBUF,,CYLBUF+2]
	BLT	C,CYLBUF+CYLSIZ-1
	MOVE	B,[IOWD CYLSIZ,CYLBUF]
	MOVEI	C,(A)
	OUT	0,B		;WRITE A CYLINDER
	JRST	.+2
	OUTSTR	[ASCIZ/OUTPUT ERRROR
/]
	SETZM	CYLBUF
	MOVE	D,[CYLBUF,,CYLBUF+1]
	BLT	D,CYLBUF+CYLSIZ-1
	IN	0,B
	JRST	.+2
	OUTSTR	[ASCIZ/INPUT ERROR
/]
	MOVE	C,PAT1
	MOVE	D,PAT2
	MOVSI	B,-CYLSIZ
PATCHK:	CAMN	C,CYLBUF(B)
	CAME	D,CYLBUF+1(B)
	JRST	PATFAI
	ADD	B,[2,,2]
	JUMPL	B,PATCHK
NXTCYL:	ADD	A,[=19,,=19]
	JUMPL	A,CYL		;TRY NEXT CYL
	OUTSTR	[ASCIZ/PASS COMPLETE
/]
	JRST	PASS		;TRY NEXT PASS

PATFAI:	OUTSTR	[ASCIZ/DATA COMPARE FAILURE
/]
	JRST	NXTCYL

	END	START